Comix Games/Comix Games.iso/jetsons/jetsons.exe/jetsons.dxr/00043.ls

Text File | 1996-11-19 | 1.1 KB | 27 lines

on CheckOtherSHipCollisions
  global theFirstShipChannel, theBackgroundVelocity, theFirstOtherShipChannel, theLastOtherShipChannel, theOtherShipVelocity
  repeat with h = theFirstOtherShipChannel to theLastOtherShipChannel
    if sprite h intersects theFirstShipChannel then
      if theBackgroundVelocity = 0 then
        PlayBounceSound()
        set theBackgroundVelocity to 2 * theOtherShipVelocity
        set temp to theOtherShipVelocity
        set theOtherShipVelocity to 0
        DoEveryFrame()
        DoEveryFrame()
        set theOtherShipVelocity to temp
        next repeat
      end if
      if ((theBackgroundVelocity < 0) and (the left of sprite theFirstShipChannel < the left of sprite h)) or ((theBackgroundVelocity > 0) and (the right of sprite theFirstShipChannel > the right of sprite h)) then
        PlayBounceSound()
        set theBackgroundVelocity to -theBackgroundVelocity
        set temp to theOtherShipVelocity
        set theOtherShipVelocity to 0
        DoEveryFrame()
        set theOtherShipVelocity to temp
        return
      end if
    end if
  end repeat
end